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EDTSCHMSCHSTR = search for a strin 15-90 -1984 :5 AX-11 Bliss-32 V4.0-742 Page 1 

. 1erSepmt9Be Veizeres — ERT sSRCHCHASCHSTR:BLt 1 aah 

; 1 1 ZTITLE "EDTSCHMSCHSTR = search for a string’ 

3 § ¢ MODULE EDTSCHMSCHSTR ( E : ! Search tor a str ng 

: ? ta {DENT = 'v04-000 ' File: trae HSTR.BLI Edit: JBS1009 

5 5 909 Ve BEGIN | 

: ? Ope 1; ii itt a 

3 'e * | 

3 % 009 1 !'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

3 10 010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

; 1} O13 : 7 ALL RIGHTS RESERVED. * 

Ps fa ® } 

3 ig 0018 1 '® THIS SOFTWARE IS FURNISHED neers A LICENSE AND MAY BE USED AND gt i * 

s 14 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bic SE AND WITH THE * 

3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 16 B28 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY ® 

3 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 

; 18 gots : :* TRANSFERRED. . 

° Mil * | 

3 $0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $$ 88 ; : 3 CORPORATION. 2 

s 'e 

3 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

> 26 0026 1 is ® | 

3 rH 0027 1 !* * 

s 8 0028 1 are ee eee eee eRe E REAR AAA A AAA EAA AAA AAAAAAAARAARARAAEERAAR EEE 

3 $2 ot 94 1! 

3 0 0030 1 

F H 0031 1 !++ 

$ 2 it T4 1! FACILITY: EDT == The DEC Standard Editor 

oe 0033 1! 

34 0034 1 | ABSTRACT: | 

s $2 0035 1! 

; 3 Oo : This module scans text looking for the search string. 

; $ sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

: 40 9040 i AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

: 42 004¢ 1 i MODIFIED BY: 

; «64 00465 1! 

: (46 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created by 

: 65 0065 1! outract ing the routine EDTS$STR_SEA from module CHANGE.BLI. 

; 646 BRe06 1! 1-00 Regular ze header. JBS gener 981 

: «647 1 ! 1-003 = Don't check for contros ¢ 3° frequently. JBS 28-Jul- 190) 

:; «648 0048 1 ! 1-004 - Add new WPS search. -0 81 (note added ener it 

; «649 49 1 ! 1-005 - Set a flag if Sontros os ectu iy abort something. dachay-1982 

; 20 $0 1! 1~p08 = Remove EDTS$A_STR A 0-J 

3 1 51 1 ! 1-007 = Remove reference ay EDT $37 3 “CHALE, wt nite not used. JBS 20-Jul-1982 

3 26 B236 1 ! 1-008 - Do some work on per toresge ce. 04-J 

3 34 0034 ! 1-009 = Add conditionals for vT22 we. B, 388 “1757 eb-1983 

: 55 055 17 


< dhe a 


S3Ssssce 2 


oo 


PAu 
oOo 
wr 


oo 44 


33333; 


WO OONOUS Wo 


gesssseseese 
OCONOUSE 


ooo 
Bass 


a a a a tk td 2 2 ot 


10 
EDTSCHMSCHSTR = search for a strin ib-se -1984 10:5 
eclarations “ 13-808= 138 99338: 


RSBTTL Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSSTR_SEA; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ’; 
LIBRARY "EDTSRC: TRANSLATE’; 
LIBRARY ‘EDTSRC:SUPPORTS'’; 


3 MACROS: 

} NONE 

EQUATED SYMBOLS: 

: NONE 

OWN STORAGE : 

NONE 

; EXTERNAL REFERENCES: 
; In the routine 


AX-11 Bliss-32 V4.0-742 Page 2? 
EDT. SRCJICHMSCHSTR.BLI;1 (2) 
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VOu000  EDISESTACSEA™ = Search for @ string 1esSeo94s QU:38:49 YMG TD BS anc go749 oo 


; 3° : ! ZSBITL ‘EDTSSSTR_SEA = search for a string’ 

: 4 066 1 GLOBAL ROUTINE EDTSSSTR_SEA ( ! Search for a string 

; 667 1 ADDR, i Address of the model string 
; #98 O08 1 LEN, ' Length of the model string 
; 99 1 DIR i Direction to search 

: 100 0 1 ds 

: 101 shh 

: 196 pore 1 te¢ 

; Ht th : FUNCTIONAL DESCRIPTION: 

: 105 75 13 Search the text for a given string. 

; 198 6 1! ° ° 

; 107 7 1 ! FORMAL PARAMETERS: 

; 108 0678 1! 

3 1% 544 : : ADDR Address of the string to find 

3 4 se? : LEN Length of the string to find 

3 113 0685 1! DIR Direction in which to search 

s 116 0684 1! 

. ae 0685 1 ! IMPLICIT INPUTS: 

3 116 0686 1! 

; 11 0687 1! EDTSSG_EXCT_MATCH 

: 118 0688 1! EDTSS$A_CUR_BuF 

3 119 0689 1! EDTS$A_WKk_CN 

3 139 0690 1! 

.. aay 0691 1 =! IMPLICIT OUTPUTS: 

$ \$¢ go98 7 4 

p 32 0693 1! EDTSSA_CUR_BUF 

. 2ae 0694 1! EDT$$G_CC_BONE 

s 2 0695 1! 

; 126 94 1 ! ROUTINE VALUE: 

s Yer 0697 1! 

: 128 0698 1! 0 Not found 

: 129 0699 1! 1 Found 

a. 0700 1! 2 Terminated by control C 

3 13) 0701 1! 

3; (1 § 144 1 ! SIDE EFFECTS: 

s 13 0703 1! 

3; «(134 0704 1! NONE 

3 133 145 : 

: 139 7 1 

; «138 708 BEGIN 

3; 139 709 

; 140 gre EXTERNAL ROUTINE 

: «(141 711 EDTSSCHK_CC, ' Check to see if a CTRL/C has been typed 
: 168 orig EDTSSRD_AXTLN, ' Move forward a Line 

: 16 71 EDTSSRD- PRVLN, ' Move backward a Line 

3 re ne EDTSSSTR_CMP; ! Compare two strings of equal length 
: 146 rg ~ 

; (14 71 ret $G_EXCT poten ' Type of string matching to do 
> (148 718 EDTSSA~ CUR 8 REF [ace BLOCK, i the current buffer tbc 

7 (149 71 EDTSSA_ KEN’: REF L N_BLOCK, ' Current Line pointer 

; 150 720 EDTS$$G_ “CC“DONE; ' Set to 1 if control re actually aborted something 
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10 
HSTR = search for a strin 1h-50 1984 10:5 AX-11 Bliss-32 v4 
SEA = search for a string 132800138. 1333832 LEDT SREICHMSCASTR 
ZIF_ SUPPORT_VT220 
TTHEN 


BIND 
GENERAL_TABLE = UPLIT (BYTE (CHAR_GENERAL)) : VECTOR (256, BYTE]; 


L_LEN, ! Local copy of length parameter 
ZIF SUPPORT_VT220 
ZTHEN 

P_GEN_TABLE : REF VECTOR (256, BYTE]; ! Pointer to table declared above 
ZELSE 

T 

ZF I 
'¢ 
! Remember the first character so we can avoid compares 
when first characters cannot possibly match. 
e. FC = CHSRCHAR (.ADDR); 


; Get a pointer to the translate table, to speed access to it. 


XIF SUPPORT_VT220 


P_GEN_TABLE = GENERAL_TABLE (0); 
XELSE 


IF ((.FC GEQ %C°a') AND (.FC LEQ ¥C'z")) THEN FC = .FC = &C*a® + XC'A'; 
2FI 


'¢ 
Get a local copy of the length parameter, to speed tests of it. 


L_LEN = .LEN; 


LP = CHSPTR (EDT$$A_WK_LN LIN TEXT], -EDTSS$A_CUR_BUF CTBCB_CHAR_POS]J); 
LE = CHSPTR (EDTSS$A_WK_LN CLIN_TEXTJ, .EDTSS$A_WK_CN CLIN_LENGTHI); 
WHILE 1 DO 

BEGIN 


IF (CREM = CHSDIFF (.LE, .LP)) GEQ .L_LEN) 
THEN 
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'¢ 
! Perform a quick test for feasibility; this will avoid calling EDTSS$STR_CMP for many 


Yano Bliss-32 V4.0-742 
EDT.SRCJCHMSCHSTR.BLI;1 


J 10 
cays HMSCHSTR EDTSCHMSCHSTR = search for a string 1p~300" 1386 99 19:29 
Vv EDTSSSTR_SEA = search for a string 14-Sep-1984 22:4 
; 208 77 ! non-matches. 
; 209 77 t= 
; 210 7 
3 11 t 0781 ZIF SUPPORT_VT220 
: \¢ f ¢ ZTHEN 
s 14 784 4&4 IF (.P_GEN_TABLE CCHSRCHAR (.LP)] EQL .P_GEN_TABLE C.FCJ) 
> 215 785 THEN 
: 18 U 07 § ZELSE 
3 \ . f 5 TC = CHSRCHAR (.LP); 
4 4 7 oF H IF ((.TC GEQ 2C*a') AND (.TC LEQ %C'z')) THEN TC = .TC = %C’a’ + XC'A'; 
: 2e1 U 0791 IF (.TC EQL .FC) 
3 ¢ U O78 THEN 
; 4 1854 " 
> 225 0799 IF EDTS$STR_CMP (.LP, .ADDR, .L_LEN, .EDTS$G_EXCT_MATCH) 
3 6 re THEN 
» er 0797 4 BEGIN 
3 228 0798 4 EDT$SA_CUR_BUF CTBCB_CHAR_POS] = CHSDIFF (.LP, CHSPTR (EDTS$A_WK_LN CLIN_TEXT))); 
3 9 0799 4 RETURN (1); 
3 0 0800 ; END; 
g 1 0801 
3 $ Bang 4 IF (.DIR EQL DIR BACKWARD) 
; 2 080 ; THEN 
3: 234 0804 
3; 235 0805 4 IF (.LP EQL CHSPTR (EDTS$A_WK_LN CLIN_TEXT])) 
: 236 Bane 3 
; 37 0807 4 BEGIN 
; 238 0808 4 
4 39 0809 4 IF ( NOT EDTSSRD_PRVLN ()) THEN RETURN (0); 
: 240 0810 4 
: 41 0811 4 IF EDTSSCHK_CC () 
3 tg pats 4 THEN 
; 246 0813 5 BEGIN 
: 246 0814 5 AD 3 DONE = 1; 
: 245 0815 5 RETURN (2); 
HB : 
3 248 0818 4 LP = LE = CHSPTR (EDTSSA_WK_LN CLIN_TEXT], .EDTS$A_WK_LN CLIN_LENGTH)); 
4 49 0819 4 END ' 
: 30 3 ’ en CHSPLUS (.LP 1) 
: RR 
s 2 8 ELSE 
3 54 ; 4 
3 55 5 4 IF (,.REM LEQ .L_LEN) 
r 26 ; $ 3 THEN 
; 5 4 BEGIN 
; 258 ; 3 4 
3 +4 4 ? IF ( NOT EDTSSRD_NXTLN ()) THEN RETURN (0); 
s 61 1 4 IF EDTSSCHK_CC () 
3 $¢ § 4 THEN 
: 6 2 peels 
: 264 8 EDT$$G_CC_DONE = 1; 
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.ENTRY EDTSS$STR_SEA, Save R2,R3,R4,R5,R6,R7.R8,R9,-; 0666 | 


-TITLE EDTSCHMSCHSTR EDTSCHMSCHSTR = search for a stri 


IDENT \vV04-000\ 


-PSECT 
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! of routine EDTSS$STR_SEA 
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0 
0 
2 
1 
0 
68 
50 


0 
1 
5 
5 
P) 
5 
03 
GA 
B 


000000006 
000000006 00 
000000006 00 


M10 
EDTSCHMSCHSTR EDTSCHMSCHSTR = search for a strin 16-Sep-1984 00:10:5 AX-11 Bliss-32 V4.0-742 
042000 EDISESTR SEA - search for a string 12-800 382 99:39:29 EDT. SRCJCHMSCHSTR.BLI;1 
000000006 98 6} D CS 8$: MOVL #1, EDT$$G_CC_DONE 
2 B tt mye #2, RO 
6 0 DO 9$ MOVL GOTSSA_UK LN, RO 
07 #A ee D MOVAB (RO), LP 
g A 0 MOVZBL (RO), L 
£9 DA ADDL ee LE 

SF 6 OOF 108: GNCL iP 

C4 06 E1 BRB bs 
; Routine Size: 227 bytes, Routine Base: _EDTSCODE + 0100 


1 
1 !<BLF/PAGE> 


Name 
_EDTSCODE 


F 


OL SPSL EME CROCE FELD, SULT IAL .OPT INI ZE) /NOTRACEBACK/L 154, ISS: CHRSCHS TR/OBJ 9088 1 CHASCHSTR MSRC$: CHMSCHSTR.BLI/UPDATE=(ENHS$:C 


ile 


EDTSCHMSCHSTR 
v04-000 


me: 
Elapsed Time: 
Lines/CPU Min: 


Memor 
Compi 


te 


Used: 


C 
0: 
0: 
Lexemes/CPU-Min: 18 
p 


N 10 


EDTSCHMSCHSTR = search for a strin 16-Sep-1984 00:10:5 AX-11 Bliss-32 V4.0-742 
EDTSSSTR_SEA = search for a string 14-Sep 1984 1 39:28 EDT LSREICAMSCASTR: BL 123 
teh } END ! of module EDTSCHMSCHSTR 

0851 0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
483 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


seeese “= Symbols -<o------ Pages Processing 

Total idaded Percent Mapped Time 
:CEDT.SRCJEDT.L32;1 377 33 8 40 00:00.2 
:CEDT.SRCIPSECTS.L32:1 2 1 50 7 00:00.1 
:CEDT. SRCJTRANSLATE.L32;1 6 1 16 57 00:00.1 
:CEDT. SRCJSUPPORTS.L32; 1 2 1 50 5 00:00.1 


COMMAND QUALIFIERS 


° 256 data bytes 


de 
19. 
if" 
258 
age 


139 s 


tion Complete 


Page 9 
. ) 


Se SSS SSS SSS el 


DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


